#### Exerccio Introducao ao R ####

### Basta mudar o diretrio?

# Verifica o diretrio de trabalho atual
getwd()
ls()
# Muda o diretrio de trabalho
setwd("C:/Users/Talita/Desktop/Disciplina R language")
# Confirma a mudana de diretrio 
getwd()
# Verifica os objetos e arquivos do novo diretrio. 
ls()
dir()
# No foi suficiente o comando setwd() porque o ls() indicou que objetos do antigo diretrio ainda esto disponveis



### Um comando perigoso

# apaga-se todos os objetos
rm(list= ls())
# salva o script de modo que os objetos possam ser recuperados depois de apagados
save.image()


### Remoo com critrio

# Carregando o arquivo "bichos.Rdata"
load("bichos.Rdata")
# Verificando os objetos do diretrio agora com o novo arquivo
ls()
# Removendo do diretrio apenas os objetos que comeam com "temp"
rm(list=ls(pattern="temp"))
# Comfirmando que s os objetos iniciados com "temp" foram deletados
ls()

### Classes de objetos

# Descobrindo o que os objetos letters e LETTERS contm
letters
LETTERS
# Descobrindo a classe destes vetores
class(letters)
class(LETTERS)
# Transformando em objetos da classe fator
letters <- as.factor(letters)
class(letters)
LETTERS <- as.factor(LETTERS)
class(LETTERS)

### Objetos de Data

hoje <- Sys.Date()
hoje
# Verificando a classe do objeto hoje
class(hoje)
# Diferena de dias entre a data de hoje e o dia em que o Brasil foi tricampeo
copa.70 <- "21/06/70"
copa.70 <- as.Date(copa.70,format="%d/%m/%y")
class(copa.70)
hoje - copa.70
# Data daqui a 43 dias
hoje + 43















